home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / TPSTR7 / EXAM02.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-10  |  3KB  |  63 lines
  1. Program Exam02;
  2.  
  3. {**************************************************************************}
  4. {                                                                          }
  5. { Ce programme démontre les possibilités de ChrnDel et ChrnDel_.           }
  6. {                                                                          }
  7. {**************************************************************************}
  8.  
  9. Uses
  10.   TpStr;
  11.  
  12. Var
  13.   S1 ,
  14.   S2 : String;
  15.  
  16. {  ---------------------------------------------------------------         }
  17. {  Procedure   ChrnDel(Var Str: String;Match: Char;Count: Integer): String;}
  18. {  ---------------------------------------------------------------         }
  19. {                                                                          }
  20. {  Effet     : Détruit tous les <Count> premier(s) caractères de <S> égaux }
  21. {              à <Match>.                                                  }
  22. {                                                                          }
  23. {  Usage     : Chaîne pascal.                                              }
  24. {                                                                          }
  25. {  Vitesse   : 7800/s                                                      }
  26. {                                                                          }
  27. {  Note      : Identique à ChrDel, mais pour <Count> caractères.           }
  28. { -------------------------------------------------------------------------}
  29.  
  30. Procedure Test1;
  31. Begin
  32.   S1 := 'Les chaussettes de l''archi-duchesse sont-elles sèches, archi-sèches';
  33.   ChrnDel(S1,'s',10);
  34.   ChrnDel(S1,'c',35);
  35.   ChrnDel(S1,'Z',14);
  36. end;
  37.  
  38. {  ---------------------------------------------------------------         }
  39. {  Procedure   ChrnDel_(Str: String;Match: Char;Count: Integer): String;   }
  40. {  ---------------------------------------------------------------         }
  41. {                                                                          }
  42. {  Effet     : Idem.                                                       }
  43. {                                                                          }
  44. {  Vitesse   : 7800/s                                                      }
  45. {                                                                          }
  46. {  Note      : Identique à ChrnDel, mais transformé en fonction, donc <Str>}
  47. {              n'est pas modifié.                                          }
  48. { -------------------------------------------------------------------------}
  49.  
  50. Procedure Test2;
  51. Begin
  52.   S1 := 'Les chaussettes de l''archi-duchesse sont-elles sèches, archi-sèches';
  53.   S2 := ChrnDel_(S1,'s',10);
  54.   S2 := ChrnDel_(S1,'c',35);
  55.   S2 := ChrnDel_(S1,'Z',14);
  56. end;
  57.  
  58. Begin
  59.   Test1;
  60.   Test2;
  61. end.
  62.  
  63. { -------------------------------------------------------------------------}